home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1997 / MacHack 1997.toast / Hacks / Hacks ’96 / PredatorPrey / SetFactors.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-06-22  |  1.6 KB  |  79 lines  |  [TEXT/KAHL]
  1. /* SetFactors.c -- Modal dialog */
  2. /* Created 940321 20:45 by AppMaker */
  3.  
  4. #include <Types.h>
  5. #include <Quickdraw.h>
  6. #include <Controls.h>
  7. #include <Dialogs.h>
  8. #include <Events.h>
  9. #include <Lists.h>
  10. #include <Menus.h>
  11. #include <TextEdit.h>
  12. #include "ResourceDefs.h"
  13. #include "Miscellany.h"
  14. #include "DialogAids.h"
  15. #include "WindowAids.h"
  16. #include "SetFactors.h"
  17.  
  18. #define OKButton        1 
  19. #define CancelButton    2 
  20. #define ZOOMFACTORSLabel    3 
  21. #define XFactorLabel    4 
  22. #define YFactorLabel    5 
  23. #define Field6            6 
  24. #define Field7            7 
  25.  
  26.  
  27. /*----------*/
  28. Boolean GetSetFactors (SetFactorsRec    *SetFactors)
  29. {
  30.     DialogPtr        theDialog;
  31.     GrafPtr            savePort;
  32.     Boolean            result;
  33.     Boolean            done;
  34.     short            itemNr;
  35.     register SetFactorsRecPtr    info;
  36.     ModalFilterUPP    gMyStandardFilterUPP;
  37.  
  38.     GetPort (&savePort);
  39.     InitCursor ();
  40.     theDialog = GetNewDialog (SetFactorsID, nil, (WindowPtr) -1L);
  41.     SetPort (theDialog);
  42.     info = SetFactors;
  43.     SetDText (Field6, info->Field6Text);
  44.     SetDText (Field7, info->Field7Text);
  45.     
  46.     ShowWindow (theDialog);
  47.     OutlineButton (1);
  48.     gMyStandardFilterUPP = NewModalFilterProc(StandardFilter);    /*    new    */
  49.     done = false;
  50.     while (!done) {
  51.         
  52.         //ModalDialog (StandardFilter, &itemNr);
  53.         ModalDialog(gMyStandardFilterUPP,&itemNr);
  54.         switch (itemNr) {
  55.             case OKButton:
  56.                     result = true;
  57.                     done = true;
  58.                 break;
  59.             case CancelButton:
  60.                     result = false;
  61.                     done = true;
  62.                 break;
  63.             case Field6:
  64.                     GetDText (itemNr, info->Field6Text);
  65.                 break;
  66.             case Field7:
  67.                     GetDText (itemNr, info->Field7Text);
  68.                 break;
  69.             
  70.         } /* switch */
  71.     } /* while */
  72.     
  73.     DisposDialog (theDialog);
  74.     SetPort (savePort);
  75.     return (result);
  76. } /*GetSetFactors*/
  77.  
  78. /* SetFactors */
  79.